# R 语言读取json
library("rjson");

result <- fromJSON(file = "input.json");
print(result);

# 将json转换成数据帧
json_data_frame <- as.data.frame( result );
print( json_data_frame )